home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue56 / DragDrop / VCLDropU.dfm / VCLDropU.txt
Encoding:
Text File  |  2000-02-09  |  1.6 KB  |  85 lines
  1. object Form1: TForm1
  2.   Left = 192
  3.   Top = 126
  4.   Width = 690
  5.   Height = 281
  6.   Caption = 'Drag pictures from the file list to the image control'
  7.   Font.Color = clWindowText
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   Position = poDefaultPosOnly
  12.   OnCreate = FormCreate
  13.   PixelsPerInch = 96
  14.   TextHeight = 13
  15.   object DirLabel: TLabel
  16.     Left = 168
  17.     Top = 12
  18.     Width = 51
  19.     Height = 13
  20.     Caption = 'D:\...\Files'
  21.   end
  22.   object Bevel1: TBevel
  23.     Left = 312
  24.     Top = 8
  25.     Width = 361
  26.     Height = 237
  27.   end
  28.   object Image: TImage
  29.     Left = 313
  30.     Top = 9
  31.     Width = 359
  32.     Height = 235
  33.     Stretch = True
  34.     OnDragDrop = ImageDragDrop
  35.     OnDragOver = ImageDragOver
  36.   end
  37.   object FileEdit: TEdit
  38.     Left = 8
  39.     Top = 8
  40.     Width = 145
  41.     Height = 21
  42.     TabOrder = 0
  43.     Text = '*.bmp'
  44.   end
  45.   object FileList: TFileListBox
  46.     Left = 8
  47.     Top = 40
  48.     Width = 145
  49.     Height = 177
  50.     FileEdit = FileEdit
  51.     ItemHeight = 13
  52.     Mask = '*.bmp'
  53.     TabOrder = 1
  54.     OnDblClick = FileListDblClick
  55.     OnMouseDown = FileListMouseDown
  56.   end
  57.   object DirList: TDirectoryListBox
  58.     Left = 160
  59.     Top = 40
  60.     Width = 145
  61.     Height = 177
  62.     DirLabel = DirLabel
  63.     FileList = FileList
  64.     ItemHeight = 16
  65.     TabOrder = 2
  66.   end
  67.   object DriveCombo: TDriveComboBox
  68.     Left = 160
  69.     Top = 224
  70.     Width = 145
  71.     Height = 19
  72.     DirList = DirList
  73.     TabOrder = 3
  74.   end
  75.   object FilterCombo: TFilterComboBox
  76.     Left = 8
  77.     Top = 224
  78.     Width = 145
  79.     Height = 21
  80.     FileList = FileList
  81.     Filter = 'Bitmap files (*.bmp)|*.bmp|All files (*.*)|*.*'
  82.     TabOrder = 4
  83.   end
  84. end
  85.